home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / edit / jed207.lha / src / jed.lha / auto / keymap.a
Text File  |  1992-09-28  |  757b  |  42 lines
  1.  
  2.         ; KEYMAP.A
  3.         ;
  4.         ; autoinit code    for libraries I    need which aren't already
  5.         ; covered by DICE's auto library opening
  6.         ;
  7.         ; This must be JOIN'ed onto the end of autos.lib, NOT
  8.         ; linked with the main bulk of my obj's. This is because
  9.         ; Workbench message processing MUST take place before
  10.         ; anything else.
  11.  
  12.         xdef    _KeymapBase
  13.         xref    __AutoFail0
  14.         xref    _LVOOpenLibrary
  15.         xref    _LVOCloseLibrary
  16.  
  17.         section    autoinit0,code
  18.  
  19.         moveq    #0,d0
  20.         lea    kmname(pc),a1
  21.         jsr    _LVOOpenLibrary(a6)
  22.         move.l    d0,_KeymapBase(a4)
  23.         beq    __AutoFail0
  24.  
  25.         bra    openend
  26. kmname:
  27.         dc.b    'keymap.library',0
  28.         ds.w    0
  29. openend:
  30.  
  31.         section    autoexit0,code
  32.  
  33.         move.l    _KeymapBase(a4),d0
  34.         beq    nokm
  35.         move.l    d0,a1
  36.         jsr    _LVOCloseLibrary(a6)
  37. nokm:
  38.  
  39.         section    libbss,bss
  40. _KeymapBase    ds.l    1
  41.  
  42.